home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / englis~1.lzh / LIBRARYS / GEM_VARS.S < prev    next >
Encoding:
Text File  |  1986-07-25  |  12.8 KB  |  368 lines
  1. ;************************************************************************
  2. ;* Σ-soft-AES-Symboltabelle                        *
  3. ;* ©1989 by Σ-soft, written by Markus Fritze           11.08.1988 13:13 *
  4. ;************************************************************************
  5. ;EQU's mit Konstanten sind auch als Vorwärtsreferenzen möglich, da diese Symbole
  6. ;ihren Wert bereits bei der Eingabe erhalten:
  7.  
  8. appl_init:    EQU $0A000100
  9. appl_read:    EQU $0B020101
  10. appl_write:    EQU $0C020101
  11. appl_find:    EQU $0D000101
  12. appl_tplay:    EQU $0E020101
  13. appl_trecord:    EQU $0F010101
  14. appl_bvset:    EQU $10020100    ;ab GEM 2.0
  15. appl_yield:    EQU $11000100    ;ab GEM 2.0
  16. appl_exit:    EQU $13000100
  17.  
  18. evnt_keybd:    EQU $14000100
  19. evnt_button:    EQU $15030500
  20. evnt_mouse:    EQU $16050500
  21. evnt_mesag:    EQU $17000101
  22. evnt_timer:    EQU $18020100
  23. evnt_multi:    EQU $19100701
  24. evnt_dclick:    EQU $1A020100
  25.  
  26. menu_bar:    EQU $1E010101
  27. menu_icheck:    EQU $1F020101
  28. menu_ienable:    EQU $20020101
  29. menu_tnormal:    EQU $21020101
  30. menu_text:    EQU $22010102
  31. menu_register:    EQU $23010101
  32. menu_unregister:EQU $24010100    ;ab GEM 2.0
  33.  
  34. objc_add:    EQU $28020101
  35. objc_delete:    EQU $29010101
  36. objc_draw:    EQU $2A060101
  37. objc_find:    EQU $2B040101
  38. objc_offset:    EQU $2C010301
  39. objc_order:    EQU $2D020101
  40. objc_edit:    EQU $2E040201
  41. objc_change:    EQU $2F080101
  42.  
  43. form_do:    EQU $32010101
  44. form_dial:    EQU $33090100
  45. form_alert:    EQU $34010101
  46. form_error:    EQU $35010100
  47. form_center:    EQU $36000501
  48. form_keybd:    EQU $37030301
  49. form_button:    EQU $38020201
  50.  
  51. graf_rubberbox: EQU $46040300
  52. graf_dragbox:    EQU $47080300
  53. graf_movebox:    EQU $48060100
  54. graf_growbox:    EQU $49080100
  55. graf_shrinkbox: EQU $4A080100
  56. graf_watchbox:    EQU $4B040101
  57. graf_slidebox:    EQU $4C030101
  58. graf_handle:    EQU $4D000500
  59. graf_mouse:    EQU $4E010101
  60. graf_mkstate:    EQU $4F000500
  61.  
  62. srcp_read:    EQU $50000101
  63. srcp_write:    EQU $51000101
  64. scrp_clear:    EQU $52000100    ;ab GEM 2.0
  65.  
  66. fsel_input:    EQU $5A000202
  67. fsel_exinput:    EQU $5B000203    ;ab TOS 1.4
  68.  
  69. wind_create:    EQU $64050100
  70. wind_open:    EQU $65050100
  71. wind_close:    EQU $66010100
  72. wind_delete:    EQU $67010100
  73. wind_get:    EQU $68020500
  74. wind_set:    EQU $69060100
  75. wind_find:    EQU $6A020100
  76. wind_update:    EQU $6B010100
  77. wind_calc:    EQU $6C060500
  78. wind_new:    EQU $6D000000    ;ab TOS 1.4
  79.  
  80. rsrc_load:    EQU $6E000101
  81. rsrc_free:    EQU $6F000100
  82. rsrc_gaddr:    EQU $70020100    ;* (siehe Unterprogramm "aes")
  83. rsrc_saddr:    EQU $71020101
  84. rsrc_obfix:    EQU $72010101
  85.  
  86. shel_read:    EQU $78000102
  87. shel_write:    EQU $79030102
  88. shel_get:    EQU $7A010101
  89. shel_put:    EQU $7B010101
  90. shel_find:    EQU $7C000101
  91. shel_envrn:    EQU $7D000102
  92. shel_rdef:    EQU $7E000102    ;ab GEM 2.0
  93. shel_wdef:    EQU $7F000002    ;ab GEM 2.0
  94.  
  95. xgrf_stepcalc:    EQU $82060600    ;ab GEM 2.0
  96. xgrf_2box:    EQU $83090100    ;ab GEM 2.0
  97.  
  98. ; Die Messages des AES
  99. MN_SELECTED:    EQU 10        ;Menüeintrag angewählt
  100. WM_REDRAW:    EQU 20        ;Teil eines Windows muß neu gezeichnet werden
  101. WM_TOPPED:    EQU 21        ;Window ist nun das aktuelle Fenster
  102. WM_CLOSED:    EQU 22        ;Window soll geschlossen werden
  103. WM_FULLED:    EQU 23        ;Window soll auf max.Größe gebracht werden
  104. WM_ARROWED:    EQU 24        ;Scollbalken angeklickt
  105. WM_HSLID:    EQU 25        ;Der horizontale Slider wurde bewegt
  106. WM_VSLID:    EQU 26        ;Der vertikale Slider wurde bewegt
  107. WM_SIZED:    EQU 27        ;Die Größe des Windows wurde geändert
  108. WM_MOVED:    EQU 28        ;Das Window wurde bewegt
  109. WM_NEWTOP:    EQU 29        ;Das Fenster wurde aktiviert (siehe WM_TOPPED)
  110. WM_UNTOPPED:    EQU 30        ;Der Fenster wird gleich inaktiv (erst ab GEM 2.0!)
  111. AC_OPEN:    EQU 40        ;Ein Acc wurde angeklickt.(30 bzw. 31 ist FALSCH!)
  112. AC_CLOSE:    EQU 41        ;Prg wurde beendet, ACC soll seinen Speicher freigeben.
  113. CT_UPDATE:    EQU 50
  114. CT_MOVE:    EQU 51        ;Funktion unbekannt
  115. CT_NEWTOP:    EQU 52
  116.  
  117. ; WM_ARROWED angeklickt (nun die genauere Definition)
  118. WA_UPPAGE:    EQU 0        ;Balken oberhalb des Sliders
  119. WA_DNPAGE:    EQU 1        ;Balken unterhalb des Sliders
  120. WA_UPLINE:    EQU 2        ;Pfeil nach oben
  121. WA_DNLINE:    EQU 3        ;Pfeil nach unten
  122. WA_LFPAGE:    EQU 4        ;Balken links vom Slider
  123. WA_RTPAGE:    EQU 5        ;Balken rechts vom Slider
  124. WA_LFLINE:    EQU 6        ;Pfeil nach links
  125. WA_RTLINE:    EQU 7        ;und Pfeil nach rechts
  126.  
  127. ; Die Objekttypen des Resource-Baumes
  128. G_BOX:        EQU 20
  129. G_TEXT:     EQU 21
  130. G_BOXTEXT:    EQU 22
  131. G_IMAGE:    EQU 23
  132. G_PROGDEF:    EQU 24
  133. G_IBOX:     EQU 25        ;Bitte in entsprechender Literatur nachschlagen
  134. G_BUTTON:    EQU 26
  135. G_BOXCHAR:    EQU 27
  136. G_STRING:    EQU 28
  137. G_FTEXT:    EQU 29
  138. G_FBOXTEXT:    EQU 30
  139. G_ICON:     EQU 31
  140. G_TITLE:    EQU 32
  141.  
  142. ; Object-Flags bei einem Objekt
  143. NONE:        EQU 0
  144. SELECTABLE:    EQU 1
  145. DEFAULT:    EQU 2
  146. EXIT:        EQU 4
  147. EDITABLE:    EQU 8
  148. RBUTTON:    EQU $10     ;Bitte ebenfalls in der Literatur nachlesen
  149. LASTOB:     EQU $20
  150. TOUCHEXIT:    EQU $40
  151. HIDETREE:    EQU $80
  152. INDIRECT:    EQU $0100
  153.  
  154. ; Objekt-Status bei einem Objekt
  155. NORMAL:     EQU 0
  156. SELECTED:    EQU 1
  157. CROSSED:    EQU 2
  158. CHECKED:    EQU 4        ;s.o.
  159. DISABLED:    EQU 8
  160. OUTLINED:    EQU $10
  161. SHADOWED:    EQU $20
  162.  
  163. ; Die einzelnen Bits bei evnt_multi()
  164. MU_KEYBD:    EQU 1        ;Tastaturereignis
  165. MU_BUTTON:    EQU 2        ;Maustastenereignis
  166. MU_M1:        EQU 4        ;1.Mausereignis
  167. MU_M2:        EQU 8        ;2.Mausereignis
  168. MU_MESAG:    EQU 16        ;Message des AES
  169. MU_TIMER:    EQU 32        ;Timer-Ereignis
  170.  
  171. ; form_dial()
  172. FMD_START:    EQU 0        ;Bildschirmhintergrund reservieren
  173. FMD_GROW:    EQU 1        ;Ausdehnende Box zeichnen
  174. FMD_SHRINK:    EQU 2        ;Schrumpfende Box zeichnen
  175. FMD_FINISH:    EQU 3        ;Bildschirmbereich wieder freigeben
  176.  
  177. ; graf_mouse()
  178. ARROW:        EQU 0
  179. TEXT_CRSR:    EQU 1
  180. HOURGLASS:    EQU 2
  181. BUSYBEE:    EQU 2
  182. POINT_HAND:    EQU 3
  183. FLAT_HAND:    EQU 4
  184. THIN_CROSS:    EQU 5
  185. THICK_CROSS:    EQU 6
  186. OUTL_CROSS:    EQU 7
  187. USER_DEF:    EQU 255
  188. M_OFF:        EQU 256
  189. M_ON:        EQU 257
  190.  
  191. ; Parameter bei wind_create()
  192. WI_NAME:    EQU 1
  193. WI_CLOSE:    EQU 2
  194. WI_FULL:    EQU 4
  195. WI_MOVE:    EQU 8
  196. WI_INFO:    EQU $10
  197. WI_SIZE:    EQU $20
  198. WI_UPARROW:    EQU $40
  199. WI_DNARROW:    EQU $80
  200. WI_VSLIDE:    EQU $0100
  201. WI_LFARROW:    EQU $0200
  202. WI_RARROW:    EQU $0400
  203. WI_HSLIDE:    EQU $0800
  204.  
  205. ; Parameter bei wind_get() & wind_set()
  206. WF_KIND:    EQU 1
  207. WF_NAME:    EQU 2
  208. WF_INFO:    EQU 3
  209. WF_WORKXYWH:    EQU 4
  210. WF_CURRXYWH:    EQU 5
  211. WF_PREVXYWH:    EQU 6
  212. WF_FULLXYWH:    EQU 7
  213. WF_HSLIDE:    EQU 8
  214. WF_VSLIDE:    EQU 9
  215. WF_TOP:     EQU 10
  216. WF_FIRSTXYWH:    EQU 11
  217. WF_NEXTXYWH:    EQU 12
  218. WF_NEWDESK:    EQU 14
  219. WF_HSLSIZE:    EQU 15
  220. WF_VSLSIZE:    EQU 16
  221.  
  222. ; wind_update()
  223. END_UPDATE:    EQU 0
  224. BEG_UPDATE:    EQU 1
  225. END_MCTRL:    EQU 2
  226. BEG_MCTRL:    EQU 3
  227.  
  228. ;************************************************************************
  229. ;* Die VDI-Symboltabelle                        *
  230. ;* Wer näheres dazu wissen möchte, sollte sich im Profibuch von Sybex    *
  231. ;* die Informationen dazu besorgen.                    *
  232. ;************************************************************************
  233. ;1. Kontrollfunktionen
  234. v_opnwk     EQU $010B0000    ;Open workstation
  235. v_clswk     EQU $02     ;Close workstation
  236. v_opnvwk    EQU $640B0000    ;Open virtual screen workstation
  237. v_clsvwk    EQU $65     ;Close virtual screen workstation
  238. v_clrwk     EQU $03     ;Clear workstation
  239. v_updwk     EQU $04     ;Update workstation
  240. vst_load_fonts    EQU $77010000    ;Load fonts
  241. unload_fonts    EQU $78010000    ;Unload fonts
  242. vs_clip     EQU $81010002    ;Set clipping rectangle
  243. ;2. Ausgabefunktionen
  244. v_pline     EQU $06000000    ;Polyline (Byte 0=count(n))
  245. v_pmarker    EQU $07000000    ;Polymarker (Byte 0=count(n))
  246. v_gtext     EQU $08000001    ;Text (Byte 2=n)
  247. v_fillarea    EQU $09000000    ;Filled area (Byte 0=count(n))
  248. v_cellarray    EQU $0A000002    ;Cell array (Byte 2=n)
  249. v_contourfill    EQU $67010001    ;Contour fill
  250. vr_recfl    EQU $72000002    ;Fill rectangle
  251. v_bar        EQU $0B000102    ;Bar
  252. v_arc        EQU $0B020204    ;Arc
  253. v_pieslice    EQU $0B020304    ;Pie
  254. v_circle    EQU $0B000403    ;Circle
  255. v_ellipse    EQU $0B000502    ;Ellipse
  256. v_ellarc    EQU $0B020602    ;Elliptical arc
  257. v_ellpie    EQU $0B020702    ;Elliptical pie
  258. v_rbox        EQU $0B000802    ;Rounded rectangle
  259. v_rfbox     EQU $0B000902    ;Filled rounded rectangle
  260. v_justified    EQU $0B020A02    ;Justified graphics text (Byte 2=n+2)
  261. ;3. Attribut-Funktionen
  262. vswr_mode    EQU $20010000    ;Set writing mode
  263. vs_color    EQU $0E040000    ;Set color representation
  264. vsl_type    EQU $0F010000    ;Set polyline line type
  265. vsl_udsty    EQU $71010000    ;Set user-defined line style pattern
  266. vsl_width    EQU $10000001    ;Set polyline line width
  267. vsl_color    EQU $11010000    ;Set polyline color index
  268. vsl_ends    EQU $6C020000    ;Set polyline end styles
  269. vsm_type    EQU $12010000    ;Set polymarker type
  270. vsm_height    EQU $13000001    ;Set polymarker height
  271. vsm_color    EQU $14010000    ;Set polymarker color index
  272. vst_height    EQU $0C000001    ;Set character height, absolute mode
  273. vst_point    EQU $6B010000    ;Set character height, points mode
  274. vst_rotation    EQU $0D010000    ;Set character baseline vector
  275. vst_font    EQU $15010000    ;Set text face
  276. vst_color    EQU $16010000    ;Set graphic text color index
  277. vst_effects    EQU $6A010000    ;Set graphic text special effects
  278. vst_alignment    EQU $27020000    ;Set graphic text alignment
  279. vsf_interior    EQU $17010000    ;Set fill interior index
  280. vsf_style    EQU $18010000    ;Set fill style index
  281. vsf_color    EQU $19010000    ;Set fill color index
  282. vsf_perimeter    EQU $68010000    ;Set fill perimeter visibility
  283. vsf_udpat    EQU $70000000    ;Set user-defined fill pattern (Byte 2=16*planes)
  284. ;4. Rasteroperationen
  285. vro_cpyfm    EQU $6D010004    ;Copy raster, opaque
  286. vrt_cpyfm    EQU $79030004    ;Copy raster, transparent
  287. vr_trnfm    EQU $6E000000    ;Transform form
  288. v_get_pixel    EQU $69000001    ;Get pixel
  289. ;5. Eingabefunktionen
  290. vsin_mode    EQU $21020000    ;Set input mode
  291. vrq_locator    EQU $1C000001    ;Input locator, request mode
  292. vsm_locator    EQU $1C000001    ;Input locator, sample mode
  293. vrq_valuator    EQU $1D010000    ;Input valuator, request mode
  294. vsm_valuator    EQU $1D010000    ;Input valuator, sample mode
  295. vrq_choice    EQU $1E010000    ;Input choice, request mode
  296. vsm_choice    EQU $1E010000    ;Input choice, sample mode
  297. vrq_string    EQU $1F020001    ;Input string, request mode
  298. vsm_string    EQU $1F020001    ;Input string, sample mode
  299. vsc_form    EQU $6F250000    ;Set mouse form
  300. vex_timv    EQU $76     ;Exchange timer interrupt vector
  301. v_show_c    EQU $7A010000    ;Show cursor
  302. v_hide_c    EQU $7B     ;Hide cursor
  303. vq_mouse    EQU $7C     ;Sample mouse button state
  304. vex_butv    EQU $7D     ;Exchange button change vector
  305. vex_motv    EQU $7E     ;Exchange mouse movement vector
  306. vex_curv    EQU $7F     ;Exchange cursor change vector
  307. vq_key_s    EQU $80000000    ;Sample keyboard state information
  308. ;6. Auskunftsfunktionen
  309. vq_extnd    EQU $66010000    ;Extended inquire function
  310. vq_color    EQU $1A020000    ;Inquire color representation
  311. vql_attributes    EQU $23     ;Inquire current polyline attributes
  312. vqm_attributes    EQU $24     ;Inquire current polymarker attributes
  313. vqf_attributes    EQU $25     ;Inquire current fill area attributes
  314. vqt_attributes    EQU $26     ;Inquire current graphic text attributes
  315. vqt_extent    EQU $74     ;Inquire text extent (Byte 2=n)
  316. vqt_width    EQU $75010000    ;Inquire character cell width
  317. vqt_name    EQU $82010000    ;Inquire face name and index
  318. vq_cellarray    EQU $1B000002    ;Inquire cell array
  319. vqin_mode    EQU $73010000    ;Inquire input mode
  320. vqt_fontinfo    EQU $83000000    ;Inquire current face information
  321. vqt_justified    EQU $84020002    ;Inquire just.graph.text (Byte 2=n+2) GEM 2.0!
  322. ;7. Escapes
  323. vq_chcells    EQU $05000100    ;Inquire addressable alpha character cells
  324. v_exit_cur    EQU $05000200    ;Exit alpha mode
  325. v_enter_cur    EQU $05000300    ;Enter alpha mode
  326. v_curup     EQU $05000400    ;Alpha cursor up
  327. v_curdown    EQU $05000500    ;Alpha cursor down
  328. v_curright    EQU $05000600    ;Alpha cursor right
  329. c_curleft    EQU $05000700    ;Alpha cursor left
  330. v_curhome    EQU $05000800    ;Home alpha cursor
  331. v_eeos        EQU $05000900    ;Erase to end of alpha screen
  332. v_eeol        EQU $05000A00    ;Erase to end of alpha text line
  333. v_curaddress    EQU $05020B00    ;Direct alpha cursor address
  334. v_curtext    EQU $05000C00    ;Output cursor addressable alpha text (Byte 2=n)
  335. v_rvon        EQU $05000D00    ;Reverse video on
  336. v_rvoff     EQU $05000E00    ;Reverse video off
  337. vq_curaddress    EQU $05000F00    ;Inquire current alpha cursor address
  338. vq_tabstatus    EQU $05001000    ;Inquire tablet status
  339. v_hardcopy    EQU $05001100    ;Hardcopy
  340. v_dspcur    EQU $05001201    ;Place graphic cursor at location
  341. v_rmcur     EQU $05001300    ;Remove last graphic cursor
  342. v_form_adv    EQU $05001400    ;Form advance
  343. v_output_window EQU $05001500    ;Output window
  344. v_clear_disp_list EQU $05001600 ;Clear display list
  345. v_bit_image    EQU $05051702    ;Output bit image file (Byte 2=n+5)
  346. vq_scan     EQU $05001800    ;Inquire printer scan
  347. v_alpha_text    EQU $05001900    ;Output alpha text (Byte 2=n)
  348. vs_palette    EQU $05013C00    ;Select palette
  349. v_sound     EQU $05023D00    ;Generate specified tone
  350. vs_mute     EQU $05013E00    ;Set/clear tone muting flag
  351. vt_resolution    EQU $05025100    ;Set tablet axis resolution in lines/inch
  352. vt_axis     EQU $05025200    ;Set table axis resolution in lines
  353. vt_origin    EQU $05025300    ;Set tablet x and y origin
  354. vq_tdimensions    EQU $05005400    ;Return tablet x and y dimensions
  355. vt_alignment    EQU $05025500    ;Set tablet alignment
  356. vsp_film    EQU $05025B00    ;Set camera file type and exposure time
  357. vqp_filename    EQU $05015C00    ;Inquire camera file name
  358. vsc_expose    EQU $05015D00    ;Disable or enable file exposure for frame preview
  359. v_meta_extents    EQU $05006202    ;Update metafile extents
  360. v_write_meta    EQU $05006300    ;Write metafile item (Byte 0=num_ptsin, Byte 2=num_intin)
  361. vm_pagesize    EQU $05036300    ;Physical page size
  362. wm_coords    EQU $05056300    ;Coordinate window
  363. vm_filename    EQU $05006400    ;Change gem vdi filename (Byte 2=n)
  364. v_offset    EQU $05016500    ;Set line offset
  365. v_fontinit    EQU $05026600    ;Init system font
  366. ;v_escape2000(times) -> (klappt mit dem Konzept leider nicht...)
  367.         END
  368.